home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Communication / PacketPoint / INSTALL_TO_HD < prev    next >
Encoding:
Text File  |  1998-06-24  |  6.5 KB  |  208 lines
  1. ;  Installation: Packet-Point
  2. ;  $VER: 0.22 BETA (01-06-97)
  3.  
  4. ;---DEFAULT Werte setzen---------------------------------------------
  5.  
  6. (set @default-dest "")
  7. (set @abort-button "Installation abbrechen")
  8. (set @app-name "Packet-Point")
  9.  
  10. (complete 0)
  11.  
  12. ;---Willkommensmeldung anzeigen--------------------------------------
  13.  
  14. (welcome "Herzlich willkommen zum Installationsprogramm von Packet-Point"
  15.          " Version 0.22 BETA. \n Dieses Programm installiert nun alle wichtigen Dateien"
  16.          " auf Ihre Festplatte. Danach koennen Sie Packet-Point von"
  17.          " Festplatte aus starten! \n"
  18.          " © 1997 by David Scheibler")
  19.  
  20. ;---Version der `version.library` ueberpruefen-----------------------
  21.  
  22. (set version (getversion "libs:version.library"))
  23. (if (< version 36)
  24. ((abort "Sie brauchen zum Benutzen von `Packet-Point` mindestens"
  25.         " Kickstart 2.0 und Worbench 2.0!!!! Sie sollten sich die neueste"
  26.         " Version kaufen, da Sie sonst dieses Programm nicht installieren"
  27.         " und verwenden können!"))
  28.  
  29. )
  30.  
  31. ;---Packet-Point Verzeichnis erstellen-------------------------------
  32.  
  33. (message "Als erstes werden Sie nach dem Verzeichnis auf Ihrer Festplatte gefragt, in dem"
  34.          " Sie Packet-Point installieren moechten. Dort werden dann alle notwendigen"
  35.          " Dateien zum Betrieb von Packet-Point installiert. Ein Verzeichnis mit dem"
  36.          " Namen `Packet-Point` wird automatisch erstellt!"
  37. )
  38.  
  39. (set @Working
  40.    (askdir
  41.       (prompt  "Bitte wählen Sie, wo das \nPacket-Point-Verzeichnis\n erstellt werden soll.")
  42.       (help    @askdir-help)
  43.       (default @default-dest)
  44.    )
  45. )
  46.  
  47. ;---Alte Daten von Packet-Point sichern------------------------------
  48.  
  49. (if (exists (tackon @Working "Packet-Point/Packet-Point"))
  50.     (
  51.          (message "ACHTUNG:\n\n Eine alte Version von Packet-Point gibt es"
  52.                   " bereits auf Ihrer Festplatte! Diese wird aber NICHT ueberschrieben,"
  53.                   " sondern in das Verzeichnis `Packet-Point_OLD` kopiert. Sie koennen"
  54.                   " anschliessend die alten Absender-, Userfilter- und Brettdaten in das"
  55.                   " neue Verzeichnis kopieren."
  56.           )
  57.  
  58.           (makedir (tackon @Working "Packet-Point_OLD")
  59.               (infos)
  60.           )
  61.  
  62.           (copyfiles
  63.               (prompt "Kopiere alte Daten")
  64.               (help   "Die alten Dateien von Packet-Point werden nun"
  65.                       " gesichert und somit NICHT ueberschrieben!")
  66.               (source (tackon @Working "Packet-Point"))
  67.               (dest   (tackon @Working "Packet-Point_OLD"))
  68.               (all)
  69.               (confirm)
  70.           )
  71.     )
  72. )
  73.  
  74. (makedir (tackon @Working "Packet-Point")
  75.    (infos)
  76. )
  77.  
  78. (makedir (tackon @Working "Packet-Point/Puffer")
  79. )
  80.  
  81. (complete 10)
  82.  
  83. ;---Packet-Point Daten auf die Festplatte kopieren-------------------
  84.  
  85. (complete 20)
  86.  
  87. (message "Nun werden alle Dateien in das soeben erzeugt Verzeichnis kopiert."
  88.          " Dazu gehoeren das Packet-Point Hauptprogramm, die Dokumentation,"
  89.          " das Konfigfile, der Copyright Vermerk, die ReadMe Datei und einige"
  90.          " Dateien, welche zum korrekten Betrieb von Packet-Point unbedingt"
  91.          " benoetigt werden!"
  92. )
  93.  
  94. (complete 30)
  95.  
  96. (copyfiles 
  97.    (prompt  "Kopiere Daten")
  98.    (source  "")
  99.    (dest    (tackon @Working "Packet-Point"))
  100.    (all)
  101. )
  102.  
  103. (copylib
  104.     (prompt "Kopiere Daten")
  105.     (help   "Die neueste Version des Installers von AMIGA INTERNATIONAL"
  106.             " wird in das Verzeichnis `C:` kopiert. Sie sollten immer die"
  107.             " aktuellste Version dieses Standartinstallationtools veerwenden!")
  108.     (source "c/Installer")
  109.     (dest   "c:")
  110.     (confirm)
  111. )
  112.  
  113. (complete 80)
  114.  
  115. ;---Das Keyfile in `DEVS:` kopieren----------------------------------
  116.  
  117. (set keyfile 0)
  118.  
  119. (if (exists "devs/pp.key")
  120.     (
  121.        (message "Als naechstes wird Ihr peroenliches Keyfile in Ihr DEVS:"
  122.                 " Verzeichnis kopiert. Mit dem Keyfile werden evtl. gespeerte"
  123.                 " Funktionen freigegeben und das Nervfenster erscheint nun nicht"
  124.                 " mehr! Durch das Packet-Point Keyfile koennen Sie kostenlose Updates"
  125.                 " benutzen, ohne sich noch einmal registrieren zu lassen! \n Da das"
  126.                 " Keyfile nur auf Sie registriert ist, duerfen Sie es auf keinen Fall"
  127.                 " weiterkopieren, nicht einmal Ihrem besten Freund oder Ihrer Schwiegermutter!"
  128.        )
  129.              (copyfiles
  130.                  (prompt "Kopiere Keyfile")
  131.                  (source "Devs/PP.key")
  132.                  (dest "devs:" )
  133.                  (help "Hiermit wir Ihr persönlicher KEY-File kopiert"
  134.                        "Sie dürfen es auf KEINEN Fall weitergeben!!!")
  135.                  (infos)
  136.                  (confirm)
  137.              )
  138.        (set keyfile 1)
  139.  
  140.  
  141.  
  142.        (message "Vielen Dank fuer Ihre Packet-Point Registrierung! Durch"
  143.                 " Ihre Registrierung helfen Sie, dieses Produkt weiterzuentwickeln."
  144.                 " Ich wuensche Ihnen viel Spass mit diesem Programm!"
  145.        )
  146.     )
  147. )
  148.  
  149. (if (= keyfile 0)
  150.        (message "Sie haben sich leider noch nicht fuer Packet-Point registrieren"
  151.                 " lassen. Sie sollten dies schnellstmoeglich tun, damit Sie alle"
  152.                 " gespeerten Funktionen nutzen koennen und das Nervrequester"
  153.                 " ausschalten koennen. Ausserdem foerdern Sie so die Weiterentwicklung"
  154.                 " dieses und anderer von mir veroeffentlichter Produkte!"
  155.        )
  156.  
  157. )
  158. (complete 90)
  159.  
  160. ;---ASSIGNs in der `User-Startup` aendern----------------------------
  161.  
  162. (startup "Packet-Point"
  163.    (prompt"Abschliessend  müssen einige Zeilen in die User-Startup eingefügt"
  164.           " werden. Diese sind notwendig um das Programm zu"
  165.           " nutzen! Fuer weitere Informationen klicken Sie bitte Help an")
  166.    (help "Es werden folgende ASSIGNs eingefügt: \n\n"
  167.          "Assign PP: <Laufwerk>:Packet-Point \n\n"
  168.          "Zum Bsp: PP: Work:Packet-Point")
  169.         (command "Assign PP: \"" @Working "Packet-Point\"\n")
  170.  
  171. )
  172.  
  173. ;---Unnoetige Dateien von der Festplatte loeschen--------------------
  174.  
  175. (delete
  176.     (tackon @Working "Packet-Point/INSTALL_TO_HD")
  177. )
  178.  
  179. (delete
  180.     (tackon @Working "Packet-Point/INSTALL_TO_HD.info")
  181. )
  182.  
  183. (delete
  184.     (tackon @Working "Packet-Point/c/Installer")
  185. )
  186.  
  187. (delete
  188.     (tackon @Working "Packet-Point/devs")
  189. )
  190.  
  191. (delete
  192.     (tackon @Working "Packet-Point/c")
  193. )
  194.  
  195. (complete 100)
  196.  
  197. ;---Ende-Meldung ausgeben--------------------------------------------
  198.  
  199. (message "Die Installation ist nun beendet. Packet-Point wurde"
  200.          " in \n\"" @Working "Packet-Point\"\n erfolgreich installiert.\n\n"
  201.          " Sie koennen das Programm nun starten!"
  202. )
  203.  
  204. (exit (quiet))
  205.  
  206. ;---ENDE-------------------------------------------------------------
  207.  
  208.